home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Task Bar, Hiding and Showing < prev    next >
Encoding:
Text File  |  1997-07-13  |  875 b   |  20 lines
  1. 'Description: Hides / Shows the entire Task Bar.
  2. '             Often used in Setup applications.
  3.  
  4. 'Dim hwnd1 As Long
  5. 'Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  6. 'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  7. 'Const SWP_HIDEWINDOW = &H80
  8. 'Const SWP_SHOWWINDOW = &H40
  9.  
  10.  
  11. 'Hide The Task Bar
  12. 'Place the following code in under a command button or in a menu, etc...
  13. hwnd1 = FindWindow("Shell_traywnd", "")
  14. Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
  15.  
  16.  
  17. 'Show The Task Bar
  18. Place the following code in under a command button or in a menu, etc...
  19. Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
  20.